Option Explicit
Sub B_Sample030()
    Dim myWb As Workbook
    Columns(1).Clear				'xs檺M
    Range("A1").Value = "ïW"	']wD
    For Each myWb In Workbooks
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = myWb.Name
    Next
    Set myWb = Nothing				'
End Sub
